home *** CD-ROM | disk | FTP | other *** search
/ Network CD 2 / Network CD - Volume 2.iso / programs / internet / tcp / mail / iu-14-as225.lha / INetUtils-1.4 / contrib / stuff.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1994-10-04  |  3.4 KB  |  121 lines
  1. Path: hearst.acc.Virginia.EDU!concert!inxs.ncren.net!taco.cc.ncsu.edu!lll-winken.llnl.gov!decwrl!hookup!yeshua.marcam.com!MathWorks.Com!europa.eng.gtefsd.com!howland.reston.ans.net!news.sprintlink.net!nwnexus!calvino.alaska.net!alaska.net!mitcht
  2. From: mitcht@alaska.net (Mitch Thompson)
  3. Newsgroups: comp.sys.amiga.networking
  4. Subject: Re: NNTP Posting utility
  5. Date: Mon, 03 Oct 1994 18:18:11 AST
  6. Organization: ""
  7. Lines: 107
  8. Message-ID: <zL0xv*310@alaska.net>
  9. References: <Cwyp91.5G8@news.ci.ua.pt>
  10. Reply-To: mitcht@alaska.net
  11. NNTP-Posting-Host: mitcht.alaska.net
  12. X-Newsreader: Arn V1.03a
  13.  
  14. In article <Cwyp91.5G8@news.ci.ua.pt>, Celso Martinho writes:
  15.  
  16. > I would like to know if anyone has wrote a NNTPPost-like program 
  17. > that supports batch files and not only one article at a time.
  18. > 
  19. > It would really make life easier for me. :)
  20. > 
  21. > Thanks in advance,
  22. > --
  23.  
  24. This works for me.  Run this script whenever you call for news:
  25.  
  26. getnews
  27. -----------------cut here----------------------------
  28.  
  29. ;First, trim old news posts out before calling for new mail.
  30. Hard:Nettools/PurgeNews ACTIVEFILE=UULIB:Active NP DATAFILE=UUNEWS:Purge.dat
  31. ; Next, set up connection.
  32. execute Amitcp:startppp
  33. wait 5 sec
  34. ;send news, if any.
  35.  
  36. list uunews:NNTPSpoolDir lformat="nntppost %p%n*ndelete %p%n" TO T:Post
  37. execute t:Post
  38. delete >NIL: T:Post
  39.  
  40.  
  41. ;<The above three lines are the ones you want.>
  42.  
  43. ;now, receive news.
  44. uucp:c/nntpxfer news.alaska.net uulib:active PARANOID
  45. ;Log off...
  46. amitcp:bin/stopnet
  47. wait 10
  48. ;Next, redo ARn's DataBase
  49. UUCP:c/arnmaster
  50. ;Finished!
  51.  
  52. ---------------------------cut here------------------------------
  53.  
  54. Also, in your newsreaders config file, use the following or equivalent to
  55. post mail to the UUNews:NNTPSPoolDir directory:
  56.  
  57. SENDNEWS rx rexx:nntpcopy.rexx %s
  58.  
  59. In Rexx:, have the following file:NNTPCopy.rexx
  60. ----------------------------cut here------------------------------
  61.  
  62. /*
  63.  * nntpcopy version 1.0
  64.  *
  65.  * ARexx script to copy a news article into uunews:NNTPSpoolDir
  66.  * A unique filename is created before copying the article 
  67.  * Usage: nntpcopy <article>
  68.  *
  69.  * Written by David Jameson, 1994.
  70.  */
  71.  
  72. arg args
  73.  
  74. /* Open RexxSupport library */
  75.  
  76. if ~show('L', 'rexxsupport.library') then do
  77.     if addlib('rexxsupport.library', 0, -30, 0) then
  78.         say 'added rexxsupport.library'
  79.     else do
  80.         say 'failed to open rexxsupport.library'
  81.         exit 10
  82.     end
  83. end
  84.  
  85. date = date()
  86. parse var date day month year
  87.  
  88. /* Remove leading spaces from year */
  89. year = right(year,4)
  90.  
  91. time = time()
  92. parse var time hour ':' min ':' sec
  93. filename = 'article.'||hour||'.'||min||'.'||sec||'.'||day||month||year
  94.  
  95. if exists('uunews:NNTPSpoolDir/'||filename) then do
  96.     say 'Error: temporary file already exists'
  97.     exit 20
  98. end
  99.  
  100. /* Copy file into NNTPSpoolDir */
  101.  
  102. address command
  103. 'copy' args 'uunews:NNTPSpoolDir/'||filename||' >t:'||filename
  104. ret_val = statef('t:'||filename)    /* major kludge... */
  105. parse var ret_val type size ignore
  106. if size ~= 0 then exit 10    /* copy failed */
  107. exit 0
  108. ---------------------------------cut here---------------------------
  109.  
  110.  
  111.  
  112. Please note!!!!  The above scripts (both DOS and REXX) are not mine!  I
  113. got them from AmiNET.  They are part of an archive what I no longer have,
  114. so I cannot remember who wrote them.  I am in no way taking credit for
  115. their creation, nor responsibility for any damage they may cause.  They
  116. work here.  The only problem I have with them is when I am posting mail to
  117. my news server, if it gets refused for any reason, it also gets deleted. 
  118. A minor annoyance.
  119.  
  120. Mitch Thompson
  121.